home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1612copy.txt < prev    next >
Encoding:
Text File  |  1996-03-07  |  1.2 KB  |  38 lines
  1. If newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. Title number = "1612"
  4. Company = "Sony"
  5. title = "Mortal Kombat 3"
  6. Price = 59.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "PlayStation"
  13. Title Description = "Grab the third tidal wave of karnage and mystery! All new fatalities,
  14. animalities, and babalities! Krack the Kombat Kodes and MK3 unlocks mysterious kombatants
  15. and grants even deadlier powers!"
  16.  
  17. -----------------------------------
  18. dline = ""
  19. counter = 0
  20. repeat while dline <> title number
  21. counter = counter + 1
  22. dline = GetWord(1, GetLine(titl,counter))
  23. test(dline = title number, LineInTitle = counter)
  24. end repeat
  25. starttitle = LineInTitle
  26. num of titles shown = 6
  27. endtitle = starttitle + num of titles shown - 1
  28. titles = ""
  29. title highlight = ""
  30. repeat with counter = starttitle to endtitle
  31. nextline = GetLine(titl, counter)
  32. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  33. title highlight = Test(title number = GetWord(1, nextline), titlehighlight ^ SubStr(nextline, 6,
  34. CharCount(nextline)) ^ Return, title highlight ^ Return)
  35. end repeat
  36. dpage = CurrentPageID
  37. newtitle = FALSE
  38. end if